unit UfrmKernel_PesquisaBase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UfrmKernel_Base, ExtCtrls, RzPanel, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, ImgList, ActnList, RzStatus, StdCtrls, RzLabel,
  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
  dxSkinDarkSide, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin, dxSkinSilver,
  dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
 dxSkinscxPCPainter, dxGDIPlusClasses, JvExControls,
  JvXPCore, JvXPButtons, RzButton, dxSkinDarkRoom, dxSkinFoggy, dxSkinSeven,
  dxSkinSharp, dxSkinSpringTime, ComCtrls, JvExComCtrls, JvDateTimePicker,
  UfrmKernel_Pesquisa, cxLookAndFeels, cxLookAndFeelPainters;

type
  TfrmKernel_PesquisaBase = class(TfrmKernel_Pesquisa)
    actNovo: TAction;
    actAlterar: TAction;
    actExcluir: TAction;
    btnNovo: TRzToolButton;
    btnAlterar: TRzToolButton;
    RzSpacer2: TRzSpacer;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    // Pesquisa do produto registros conforme os parametros informados
    procedure PesquisaBase; override;
    procedure Antes_PesquisaBase; override;
    procedure Depois_PesquisaBase; override;
    procedure Executa_PesquisaBase; override;

    // Inseri o registro selecionado no grid na tabela informada no filho
    procedure InseriBase; override;
    // Abre um a Tela de cadastrar novo produto[SC]
    procedure Kernel_Abre_Cadasto;override;

    function AnalisaPodePesquisa(): Boolean; override;

    procedure Inseri_Novo_Registro; override;

    procedure Novo_Registro; virtual;
    procedure Antes_Novo_Registro; virtual;
    procedure Depois_Novo_Registro; virtual;
    procedure Executa_Novo_Registro; virtual;

    procedure Alterar_Registro; virtual;
    procedure Antes_Alterar_Registro; virtual;
    procedure Depois_Alterar_Registro; virtual;
    procedure Executa_Alterar_Registro; virtual;
  end;

var
  frmKernel_PesquisaBase: TfrmKernel_PesquisaBase;

implementation

uses UfrmKernel_Aguarde, UKernel_VariaveisPublic;

{$R *.dfm}

{ TfrmPesquisaBase }

procedure TfrmKernel_PesquisaBase.Kernel_Abre_Cadasto;
begin
  inherited;
end;

procedure TfrmKernel_PesquisaBase.Novo_Registro;
begin

end;

procedure TfrmKernel_PesquisaBase.Alterar_Registro;
begin

end;

function TfrmKernel_PesquisaBase.AnalisaPodePesquisa: Boolean;
begin
  inherited;
end;

procedure TfrmKernel_PesquisaBase.Antes_Alterar_Registro;
begin

end;

procedure TfrmKernel_PesquisaBase.Antes_Novo_Registro;
begin

end;

procedure TfrmKernel_PesquisaBase.Antes_PesquisaBase;
begin
  inherited;
end;

procedure TfrmKernel_PesquisaBase.Depois_Alterar_Registro;
begin

end;

procedure TfrmKernel_PesquisaBase.Depois_Novo_Registro;
begin

end;

procedure TfrmKernel_PesquisaBase.Depois_PesquisaBase;
begin
  inherited;
end;

procedure TfrmKernel_PesquisaBase.Executa_Alterar_Registro;
begin

end;

procedure TfrmKernel_PesquisaBase.Executa_Novo_Registro;
begin

end;

procedure TfrmKernel_PesquisaBase.Executa_PesquisaBase;
begin
  inherited;
end;

procedure TfrmKernel_PesquisaBase.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  inherited;
  //modalresult := mrok;
end;

procedure TfrmKernel_PesquisaBase.FormCreate(Sender: TObject);
begin
  kernel_str_form := 'Pesquisa de ' + kernel_srt_nmformbase;
  lblTitulo.caption:= kernel_str_form;
  lblSubtitulo.Caption := 'Pesquisa/Filtro de ' + kernel_srt_nmformbase;
  inherited;

end;

procedure TfrmKernel_PesquisaBase.InseriBase;
begin
  inherited;

end;

procedure TfrmKernel_PesquisaBase.Inseri_Novo_Registro;
begin
   inherited;
end;

procedure TfrmKernel_PesquisaBase.PesquisaBase;
begin
  inherited;

end;

end.
